home *** CD-ROM | disk | FTP | other *** search
/ The 640 MEG Shareware Studio 2 / The 640 Meg Shareware Studio CD-ROM Volume II (Data Express)(1993).ISO / basic / vxbase.zip / VXFORM4.FRM (.txt) < prev    next >
Visual Basic Form  |  1992-03-06  |  10KB  |  236 lines
  1. VXFORM4
  2. Buyer Details
  3. Form1-
  4. Label1
  5. Tms Rmn
  6. BuyCode
  7. Label2
  8. Aircraft Type
  9. Tms Rmn
  10. BuyType
  11. BuyTypeHelp
  12. Tms Rmn
  13. BuyTypeDesc
  14. Label3
  15.     Low Price
  16. Tms Rmn
  17. BuyLow
  18. Label4
  19. High Price
  20. Tms Rmn
  21. BuyHigh
  22. BuySave
  23. &Save
  24.     BuyCancel
  25. &Cancel
  26. BuyAdd
  27.     BuyDelete
  28. &Delete
  29. BuyNext
  30. &Next
  31. BuyPrevious
  32.     &Previous
  33.     BuyBrowse
  34. &Browse
  35. BuyExit
  36. E&xit
  37. Label5
  38. Status
  39. Tms Rmn
  40.     BuyStatus
  41.     Form_Load7
  42. vxSelectDbfb
  43. AirbuyerDbf
  44. Form4Active
  45. BuyerReturn
  46. BROWSE_ADD
  47. BuyerDataClear(
  48.     BuyStatus
  49. BuySave
  50. Enabled?
  51.     BuyCancel7
  52. BuyAddl
  53. FALSE
  54.     BuyDeleteL
  55. BROWSE_EDIT
  56. BuyerDataLoad
  57. vxRecNo,
  58. Form_Unload
  59. CancelJ
  60. BROWSE_USERk
  61. vxClose
  62. AirtypesDbf
  63. StatesOpen
  64. AircustDbf
  65. vxSelectNtx
  66. Aircust1Ntx
  67. vxSeek
  68. CustKey
  69. CustReturnG
  70. VXFORM3
  71. BuyCode
  72. BuyType
  73. BuyTypeDesc
  74. BuyLow
  75. BuyHighX
  76. b_low
  77. b_high
  78. CursorWaitw
  79. EnableBuyerData
  80. vxDoubleJ
  81. vxField
  82. vxUnlock
  83. CursorArrow
  84. DisableBuyerData
  85. BuyAdd_Click
  86. BuyBrowse_Click
  87. VXFORM4
  88. Visible
  89. BuyerRec
  90. BrowseBuyers
  91. BuyCancel_Click;
  92. BuyDelete_Click
  93. vxDeleteRec
  94. BuyExit_Clickl
  95. BuyHigh_KeyPress
  96. KeyAscii
  97. BuyLow_KeyPress
  98. BuyType_GotFocus
  99. vxCtlLength
  100. BuyType_KeyPress
  101. BuyType_LostFocus
  102. EmptyString~
  103. BuyNext_Click
  104. EndFile
  105. vxSkip5
  106. BuyNextW
  107. BuyPrevious
  108.     BuyBrowseA
  109. vxEof%
  110. vxBottom
  111. vxBof
  112.     vxDeletedk
  113. BuyHigh_GotFocus
  114. BuyLow_GotFocus
  115. BuyPrevious_Click
  116. BegFile
  117. BuySave_Click
  118. TypeKey
  119. SeekKey
  120. vxAppendBlank
  121. vxReplString
  122. vxReplDouble3
  123. vxWrite
  124. BuyTypeHelp_Click
  125. AirtypesNtx
  126. TypeReturnU
  127. vxBrowse
  128. Hwnd~
  129. Form_Paintd
  130. vxFormFramer
  131. vxCtlStyle
  132. VX_RAISE
  133.     VX_RECESS
  134. BROWSE_DELETE
  135. Form_Load
  136. Record addition request"
  137.  if user pressed ENTER then file is positioned
  138.  at current record and the record number isn
  139.  returned in BuyerReturn. In this case we assume
  140.  he wants to edit that record.
  141.  call general proc to load controls-
  142. Edit record 
  143. Form_Unload
  144. BuyerDataClear
  145. BuyerDataLoad
  146. b_low"
  147. b_high
  148. #######0
  149. #######0
  150. b_cat"
  151. b_desc
  152. b_code
  153. EnableBuyerData
  154. DisableBuyerData
  155. BuyAdd_Click
  156.  clear form for addition of new record
  157. Record Addition Request"
  158.  ensure data entry enabled
  159.  reset the buttons
  160. BuyBrowse_Click
  161.  ensure we're positioned to top rec of group
  162.  so we don't close files
  163.  when we unload the form
  164. No buyer records on file!"
  165. BuyCancel_Click
  166.  Clear form data and reset button status
  167. Operation cancelled"
  168. BuyDelete_Click
  169.  get user confirmation of delete
  170. Confirm Delete
  171.  Deleted
  172. Delete failed"
  173. Delete cancelled
  174. BuyExit_Click
  175. BuyHigh_KeyPress
  176. {Tab}"
  177. BuyLow_KeyPress
  178. {Tab}"
  179. BuyType_GotFocus
  180. b_cat"#
  181. BuyType_KeyPress
  182.  convert to uppercase
  183. {Tab}"
  184. BuyType_LostFocus
  185. catname"
  186. BuyNext_Click
  187.  skip forward one record
  188.  if skip error, only allow exit
  189. Error on Skip Next. Try Reindex.
  190.  if this rec doesn't belong to this customer, eof is true-
  191. b_code
  192. b_code
  193. No buyer records on file!"
  194.  test for end of file 
  195. End of File!
  196. Skipped to record 
  197. BuyHigh_GotFocus
  198. b_high#
  199. BuyLow_GotFocus
  200. b_low"#
  201. BuyPrevious_Click
  202.  skip back one record
  203.  if skip error, only allow exit
  204. Error on Skip Previous. Try Reindex.
  205. b_code
  206. No buyer records on file!"
  207.  test for beginning of file"
  208. Beginning of File!
  209. Skipped to record 
  210. BuySave_Click
  211.  verify something in the field
  212. Field cannot be empty"
  213.  verify unique key if adding
  214. Duplicate Key on Add
  215.  Data passed. Put it away
  216. b_code
  217. b_cat"
  218. b_desc
  219. b_low"
  220. b_high
  221.  Update status box
  222. Record "
  223.  appended"
  224. Record "
  225.  saved
  226.  Update Button Status
  227. BuyTypeHelp_Click
  228. Aircraft Type Help
  229.  re-register databasec
  230. category
  231. catname"
  232. Form_Paint
  233.  if delete request from browse, do it nowT
  234.  because we must let enhanced controls
  235.  paint before asking for delete confirmation
  236.